home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / examples / fmoretx2.F < prev    next >
Text File  |  1991-08-25  |  3KB  |  170 lines
  1.     program moret2
  2.  
  3. #ifdef SGI
  4. #include "fgl.h"
  5. #include "fdevice.h"
  6. #else
  7. #include "fvogl.h"
  8. #include "fvodevice.h"
  9. #endif
  10.  
  11.     call winope('moretxt2', 8)
  12.  
  13.     call unqdev(INPUTC)
  14.     call qdevic(KEYBD)
  15.  
  16.     call hfont('futura.l', 8)
  17.     call htexts(0.03, 0.04)
  18.  
  19.     call ortho2(0.0, 1.0, 0.0, 1.0)
  20.  
  21.  
  22.     call color(RED)
  23.     call clear()
  24.  
  25.  
  26.     call drawst()
  27.  
  28. c     Now do it all with the text rotated .... 
  29.  
  30.     call htexta(45.0)
  31.     call drawst
  32.  
  33.     call htexta(160.0)
  34.     call drawst()
  35.  
  36.     call htexta(270.0)
  37.     call drawst
  38.  
  39. c     Now with a single character 
  40.  
  41.     call htexta(0.0)
  42.     call drwst2()
  43.  
  44.     call htextang(45.0)
  45.     call drwst2()
  46.  
  47.     call htextang(160.0)
  48.     call drwst2()
  49.  
  50.     call htextang(270.0)
  51.     call drwst2()
  52.  
  53.     call gexit()
  54.     end
  55.  
  56.     subroutine drawst
  57. #ifdef SGI
  58. #include "fgl.h"
  59. #else
  60. #include "fvogl.h"
  61. #endif
  62.  
  63.     integer *2 val
  64.  
  65.     call color(BLACK)
  66.     call rectf(0.1, 0.1, 0.9, 0.9)
  67.     call color(WHITE)
  68.     call move2(0.1, 0.5)
  69.     call draw2(0.9, 0.5)
  70.     call move2(0.5, 0.1)
  71.     call draw2(0.5, 0.9)
  72.  
  73.     call color(GREEN)
  74.     call move2(0.5, 0.5)
  75.     call hleftj(.true.)
  76.     call hchars('This is Left Justified text', 27)
  77.  
  78.     idum = qread(val)
  79.  
  80.     call color(BLACK)
  81.     call rectf(0.1, 0.1, 0.9, 0.9)
  82.     call color(WHITE)
  83.     call move2(0.1, 0.5)
  84.     call draw2(0.9, 0.5)
  85.     call move2(0.5, 0.1)
  86.     call draw2(0.5, 0.9)
  87.  
  88.     call color(YELLOW)
  89.     call move2(0.5, 0.5)
  90.     call hcente(.true.)
  91.     call hchars('This is Centered text', 21)
  92.     call hcente(.false.)
  93.  
  94.     idum = qread(val)
  95.  
  96.     call color(BLACK)
  97.     call rectf(0.1, 0.1, 0.9, 0.9)
  98.     call color(WHITE)
  99.     call move2(0.1, 0.5)
  100.     call draw2(0.9, 0.5)
  101.     call move2(0.5, 0.1)
  102.     call draw2(0.5, 0.9)
  103.  
  104.     call color(MAGENT)
  105.     call move2(0.5, 0.5)
  106.     call hright(.true.)
  107.     call hchars('This is Right Justified text', 28)
  108.     call hright(.false.)
  109.  
  110.     idum = qread(val)
  111.  
  112.     end
  113.  
  114.     subroutine drwst2
  115. #ifdef SGI
  116. #include "fgl.h"
  117. #else
  118. #include "fvogl.h"
  119. #endif
  120.     integer *2 val
  121.  
  122.     call color(BLACK)
  123.     call rectf(0.1, 0.1, 0.9, 0.9)
  124.     call color(WHITE)
  125.     call move2(0.1, 0.5)
  126.     call draw2(0.9, 0.5)
  127.     call move2(0.5, 0.1)
  128.     call draw2(0.5, 0.9)
  129.  
  130.     call color(GREEN)
  131.     call move2(0.5, 0.5)
  132.     call hleftj(.true.)
  133.     call hdrawc('B')
  134.  
  135.     idum = qread(val)
  136.  
  137.     call color(BLACK)
  138.     call rectf(0.1, 0.1, 0.9, 0.9)
  139.     call color(WHITE)
  140.     call move2(0.1, 0.5)
  141.     call draw2(0.9, 0.5)
  142.     call move2(0.5, 0.1)
  143.     call draw2(0.5, 0.9)
  144.  
  145.     call color(YELLOW)
  146.     call move2(0.5, 0.5)
  147.     call hcente(.true.)
  148.     call hdrawc('B')
  149.     call hcente(.false.)
  150.  
  151.     idum = qread(val)
  152.  
  153.     call color(BLACK)
  154.     call rectf(0.1, 0.1, 0.9, 0.9)
  155.     call color(WHITE)
  156.     call move2(0.1, 0.5)
  157.     call draw2(0.9, 0.5)
  158.     call move2(0.5, 0.1)
  159.     call draw2(0.5, 0.9)
  160.  
  161.     call color(MAGENT)
  162.     call move2(0.5, 0.5)
  163.     call hright(.true.)
  164.     call hdrawc('B')
  165.     call hright(.false.)
  166.  
  167.     idum = qread(val)
  168.     
  169.     end
  170.